RMarkdown setup

library(knitr)
knitr::opts_chunk$set(cache = TRUE, cache.lazy = FALSE, warning=FALSE,
                      fig.width=8.5, fig.height=6, autodep=TRUE, echo=FALSE)

Grab data

cases = read.csv("https://covid.ourworldindata.org/data/ecdc/total_cases.csv",
                 stringsAsFactors=FALSE)
cases$date = as.POSIXct(cases$date)

deaths = read.csv("https://covid.ourworldindata.org/data/ecdc/total_deaths.csv",
                  stringsAsFactors=FALSE)
deaths$date = as.POSIXct(deaths$date)

Cumulative deaths and cases

Cumulative deaths

Log-scale

Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)

Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)

Linear-scale

Cumulative cases

Log-scale

Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)

Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)

Linear-scale

Naive case fatality rates

Log-scale

Linear-scale

Incremental (daily) deaths and cases

Daily deaths

Log-scale

Linear-scale

Daily new cases

Log-scale

Linear-scale

Smoothed daily deaths

Log-scale

Linear scale

Smoothed daily new cases

Log-scale

Linear scale